home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / KBD_UTL / ADVCRT90 / SHRTDESC.DOC < prev   
Text File  |  1990-06-18  |  5KB  |  149 lines
  1.  
  2.                             Current Version:  9.0
  3.              Included in this AdvCRT UNIT are the following routines:
  4.  
  5. Procedure FindScreenBase(var ScreenBase: Word);
  6.    - Find the type of display adaptor installed and
  7.      set the base address to variable ScreenBase.
  8.  
  9.  Function QuickScreenBase: Word;
  10.    - Finds the base address of the display adaptor,
  11.      can be passed into other procedure easily (parameter).
  12.  
  13.  Function MakeAttr(Fore, Back: Byte): Byte;
  14.    - Produces a machine level Attribute byte from
  15.      a give foreground and background.
  16.  
  17. Procedure ExtractAttr(Attr: Byte; var Fore, Back: Byte);
  18.    - Produces a Turbo style forground [0-15] and
  19.      background [0-7] with a given machine level Attribute.
  20.  
  21. Procedure TurnCursor(ONorOFF: Boolean);
  22.    - Turns the Cursor ON or OFF, saving its "style" in global
  23.      variable SaveCursor.
  24.  
  25. Procedure SetCursor(StartScan, EndScan: Byte);
  26.    - Allows the programmer to set the Cursor to the
  27.      "style" he/she wants.
  28.  
  29. Procedure Scroll(X1,Y1,X2,Y2, LinesToScroll, BlankLineAttr, UPorDOWN: Byte);
  30.    - Scrolls a given region (window) on the screen up
  31.      or down.
  32.  
  33. Procedure TurnScreen(ONorOFF: Boolean);
  34.    - Turns the monitor "on" or "off" software wise.
  35.  
  36. Procedure DirectOut(X,Y: Byte; aStr: String; Attr: Byte);
  37.    - Writes directly to Video Display Memory.
  38.  
  39. Procedure SetBorder(BordColor: Byte);
  40.    - Sets the outside border of the screen to
  41.      a give color [0-15].
  42.  
  43. Procedure GetCursorPos(var X,Y: Byte; Page: Byte);
  44.    - Returns the position of the cursor on a given
  45.      page.
  46.  
  47. Procedure GetCRTMode(var Mode, Columns, ActivePage: Byte);
  48.    - Returns the Mode, # of Columns, and Active Display
  49.      Page of the display adaptor.
  50.  
  51.  Function ActiveDisplayPage: Byte;
  52.    - Returns Active Display Page for quick use--can
  53.      be used as a parameter.
  54.  
  55. Procedure SetPage(Page: Byte);
  56.    - Sets the active display page.
  57.  
  58. Procedure SetCurPosPage(X,Y, Page: Byte);
  59.    - Sets the cursor to a given position (X,Y) on
  60.      a give Display Page.
  61.  
  62. Procedure GetCharXY(X,Y, Page: Byte; var Ch: Char; var Attr: Byte);
  63.    - Returns the character and it's attribute on the screen at
  64.      a given location on a given Display Page.
  65.  
  66. Procedure WriteChPage(X,Y, Page: Byte; Ch: Char; NumReps: Integer;
  67.                       Attr: Byte);
  68.    - Writes a character to a given Display Page at given
  69.      coordinates with a given Attribute.  Can be used to create
  70.      INSTANT pages of text.
  71.  
  72. Procedure WriteStrPage(X,Y, Page: Byte; aStr: String; Attr: Byte);
  73.    - Writes a string to a given Display Page at given
  74.      coordinates with a given Attribute.  Can be used to create
  75.      INSTANT pages of text.
  76.  
  77. Procedure ClrPage(Page: Byte);
  78.    - Clears a given Display Page (like ClrScr).  Note you may
  79.      be on one page and clear another page at any time.
  80.  
  81. Procedure GetKey(var Code: Byte; var Extkey: Boolean);
  82.    - Reads a key from the keyboard and returns it's scan code
  83.      along with whether or not that key is "EXTENDED".
  84.  
  85.  Function CapsLockON: Boolean;
  86.    - Returns TRUE if Caps Lock key is active.
  87.  
  88.  Function NumLockON: Boolean;
  89.    - Returns TRUE if Num Lock key is active.
  90.  
  91.  Function ScrollLockON: Boolean;
  92.    - Returns TRUE if Scroll Lock key is active.
  93.  
  94.  Function RightShift: Boolean;
  95.    - Returns TRUE if the Right Shift key is active at the
  96.      time of the call to the function.
  97.  
  98.  Function LeftShift: Boolean;
  99.    - Returns TRUE if the Left Shift key is active at the
  100.      time of the call to the function.
  101.  
  102.  Function AltPressed: Boolean;
  103.    - Returns TRUE if the Alt key is active at the time of the
  104.      call to the function.
  105.  
  106.  Function CtrlPressed: Boolean;
  107.    - Returns TRUE if the Ctrl key is active at the time of the
  108.      call to the function.
  109.  
  110.  Function InsertModeON: Boolean;
  111.    - Returns TRUE if the INSert key is active.
  112.  
  113. Procedure CapsLockKey(ONorOFF: Boolean);
  114.    - Sets the keyboard CAPS LOCK state to Upper Case or Lower Case.
  115.  
  116. Procedure NumLockKey(ONorOFF: Boolean);
  117.    - Sets the keypad to its Cursor Control or Numeric state.
  118.  
  119. Procedure SaveScreen(var aScreen: ScreenType; Height: Byte;
  120.                      var Status: Byte);
  121.    - Save a text screen to memory (to variable aScreen).  Can later
  122.      be restored INSTANTLY to the screen with the RestoreScreen
  123.      procedure.
  124.  
  125. Procedure RestoreScreen(aScreen: ScreenType);
  126.    - Restores a text screen stored in variable aScreen to Video
  127.      Display Memory for an INSTANTANEOUS screen update.
  128.  
  129.  Function NumSecsMidNight: Real;
  130.    - Returns the number of seconds elapsed on the system clock since
  131.      midnight of the current day.
  132.  
  133. Procedure CheckTime(Action: Byte);
  134.    - Evaluates the SPEED of ANY routine inside and outside of Turbo.
  135.      Can be used to check the speed of your procedures, the procedures
  136.      in AdvCRT, DOS functions, etc.
  137.  
  138. Procedure PrintScreen(var Status: Byte);
  139.    - Causes the current text or graphics screen to be printed to the
  140.      default printer.  Identical to "Shift-PrtSc" key.
  141.  
  142. Procedure DelaySeconds(NumSecs: Real; KeyIntr: Boolean);
  143.    - Delays NumSecs number of seconds (instead of a boring millisecond
  144.      delay with the standard DELAY command), with an option to allow
  145.      the user to abort the wait with a keystroke.
  146.  
  147. AdvCRT is Copyright (C) 1990 Gary A. Kohan, Jr.  All rights reserved worldwide.
  148.      Turbo Pascal is a registered trademark of Borland, International.
  149.